﻿
Public Class UserControl1
    Public Shared WithEvents filesorgente As New Label
    Shared a As AxAcroPDFLib.AxAcroPDF

    Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        a = AxAcroPDF1
    End Sub

    Public Shared Sub filesorgente_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles filesorgente.TextChanged

        a.LoadFile(filesorgente.Text)
    End Sub
End Class
